0 PRINT"[147]":POKE53280,6:POKE53281,0
1 REM ==================================
2 REM    COMMODARES PROBLEM #52-4 :
3 REM       FACTOR FUN
4 REM    SOLUTION BY
5 REM       DALE ICKES
6 REM ==================================
10 INPUT"FACTOR WHAT NUMBER";A
20 FOR C=A TO 1 STEP -1
30 B=A/C: IF B=INT(B) THEN PRINT B;
40 NEXT
50 PRINT: GOTO 10